Option Explicit
Sub B_Sample028()
    Dim mySht As Worksheet
    Set mySht = Worksheets(1)				'N
    MsgBox mySht.FilterMode
    Set mySht = Nothing					'
End Sub
